home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / Useful / bitfield.e < prev    next >
Encoding:
Text File  |  1996-08-11  |  388 b   |  19 lines
  1. OPT MODULE, PREPROCESS
  2. OPT EXPORT
  3.  
  4. #define NBITMASK(n) (Shl(1,(n))-1)
  5.  
  6. #define NBITSATX(n,x) (Shl(NBITMASK(n),(x)))
  7.  
  8. #define NOTNBITSATX(n,x) (Not(NBITSATX(n,x)))
  9.  
  10. #define GETNBITSATX(n,x,f) (lshr((f) AND NBITSATX(n,x), (x)))
  11.  
  12. #define SETNBITSATX(n,x,f,v) (((f) AND NOTNBITSATX(n,x)) OR Shl((v) AND NBITMASK(n), x))
  13.  
  14. PROC lshr(x,y)
  15.   MOVE.L x, D0
  16.   MOVE.L y, D1
  17.   LSR.L D1, D0
  18. ENDPROC D0
  19.